#!/usr/bin/perl

use XML::Simple;
my $documento = $ARGV[0];
my $muebles = XMLin($documento);
print $muebles->{habitacion}->{id}, "\n";

